home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / examples / src / ArgTest.mod next >
Encoding:
Text File  |  1994-12-23  |  467 b   |  20 lines
  1. MODULE ArgTest ;
  2.  
  3. IMPORT CliArgs, InOut ;
  4.  
  5. VAR
  6.   argArray : ARRAY [0..5] OF CHAR ;
  7.           (* In reality you would declare a much bigger array!          *)
  8.           (* We declare a small one to illustrate the truncation effect *)
  9.  
  10.   x : LONGINT ;
  11.  
  12. BEGIN
  13.   FOR x := 0 TO CliArgs.GetArgCount()-1 DO
  14.     CliArgs.GetArg( x, argArray ) ;
  15.     InOut.WriteString( argArray ) ;
  16.     IF CliArgs.truncated THEN InOut.WriteString(" (truncated)") END ;
  17.     InOut.WriteLn
  18.   END
  19. END ArgTest.
  20.